manager_mod Module

модуль определяет начальные значения лучей и запускает трассировку


Uses


Subroutines

public subroutine manager(iterat, iw0, ntet, spectr)

Arguments

Type IntentOptional Attributes Name
integer :: iterat
integer :: iw0
integer :: ntet
type(Spectrum) :: spectr

public subroutine rini(traj, point, iw0)

Arguments

Type IntentOptional Attributes Name
class(Trajectory), intent(inout) :: traj
type(SpectrumPoint), intent(in) :: point
integer, intent(in) :: iw0

public subroutine dqliter(dltpow, traj, h, powexit, iout)

!old variant ! call raspr(v,abs(jr),iv,df) ! if(iv.eq.0) iv=1 !!!!!!!!!!!!!!!!!!!!!!!! dfsr=vdf(vrt-vlf) vsr=v(vrt-vlf) pintld=-dland(i)(dflf+dfrt)/2d0 pdec1=-pdecv*df

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: dltpow
type(Trajectory), intent(in), pointer :: traj
real(kind=wp), intent(in) :: h
real(kind=wp), intent(out) :: powexit
integer, intent(inout) :: iout